Using plotly to create interactive plots.(e.g. https://plotly.com/r/legend/)
d = read.csv("data/animate_eggs.csv")
fig <- plot_ly(d, x = ~mass_diff[1:6], y = ~No[1:6], type = 'scatter', mode = 'lines',
legendgroup = 'group1', name = 'T1 Eggs - Did Not Fly', line = list(color = 'rgb(205, 12, 24)'))
fig <- fig %>% add_trace(y = ~T1[1:6], legendgroup = 'group1', name = 'T1 Eggs - T1 Flew',
line = list(color = 'blue'))
fig <- fig %>% add_trace(y = ~Twice[1:6], legendgroup = 'group1', name = 'T1 Eggs - Flew Twice',
line = list(color = 'maroon'))
fig <- fig %>% add_trace(x = ~mass_diff[7:20], y = ~No[7:20], legendgroup = 'group2', name = 'No Eggs - Did Not Fly',
line = list(color = 'rgb(205, 12, 24)', dash = 'dash'))
fig <- fig %>% add_trace(x = ~mass_diff[7:20], y = ~T1[7:20], legendgroup = 'group2', name = 'No Eggs - T1 Flew',
line = list(color = 'blue', dash = 'dash'))
fig <- fig %>% add_trace(x = ~mass_diff[7:20], y = ~Twice[7:20], legendgroup = 'group2', name = 'No Eggs - Flew Twice',
line = list(color = 'maroon', dash = 'dash'))
fig <- fig %>% add_trace(x = ~mass_diff[21:65], y = ~No[21:65], legendgroup = 'group3', name = '2 Eggs - Did Not Fly',
line = list(color = 'rgb(205, 12, 24)', dash = 'dashdot'))
fig <- fig %>% add_trace(x = ~mass_diff[21:65], y = ~T1[21:65], legendgroup = 'group3', name = '2 Eggs - T1 Flew',
line = list(color = 'blue', dash = 'dashdot'))
fig <- fig %>% add_trace(x = ~mass_diff[21:65], y = ~Twice[21:65], legendgroup = 'group3', name = '2 Eggs - Flew Twice',
line = list(color = 'maroon', dash='dashdot'))
fig <- fig %>% add_trace(x = ~mass_diff[66:93], y = ~No[66:93], legendgroup = 'group4', name = 'T2 Eggs - Did Not Fly',
line = list(color = 'rgb(205, 12, 24)', dash='dot'))
fig <- fig %>% add_trace(x = ~mass_diff[66:93], y = ~T1[66:93], legendgroup = 'group4', name = 'T2 Eggs - T1 Flew',
line = list(color = 'blue', dash='dot'))
fig <- fig %>% add_trace(x = ~mass_diff[66:93], y = ~Twice[66:93], legendgroup = 'group4', name = 'T2 Eggs - Flew Twice',
line = list(color = 'maroon', dash='dot'))
fig <- fig %>% layout(xaxis = list(title="Mass Change from T1 to T2 (g)"),
yaxis = list(title="Flight Case Probability"))
fig